home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / lisp / elk-2_0.lha / elk-2.0 / examples / xaw / viewport < prev   
Encoding:
Text File  |  1991-09-26  |  462 b   |  19 lines
  1. ;;; -*-Scheme-*-
  2. ;;;
  3. ;;; Viewport widget demo
  4.  
  5. (require 'xwidgets)
  6. (load-widgets shell clock viewport)
  7.  
  8. (define top (application-initialize 'viewport))
  9.  
  10. (define v (create-managed-widget (find-class 'viewport) top
  11.   'force-bars #t 'allow-horiz #t 'allow-vert #t))
  12. (set-values! v 'width 120 'height 120)
  13.  
  14. (define c (create-managed-widget (find-class 'clock) v))
  15. (set-values! c 'width 200 'height 200)
  16.  
  17. (realize-widget top)
  18. (context-main-loop (widget-context top))
  19.